home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / wp / ged11.lha / Install / data / main / GoldED / ARexx / gui.ged < prev    next >
Text File  |  1994-08-24  |  439b  |  23 lines
  1. /* $VER: 1.1 Pass command to GUIMake. Launch GUIMake if necessary. */
  2.  
  3. ARG command
  4.  
  5. host = ADDRESS()                                 /* get GED's port */
  6.  
  7. if ~show('p', 'GUIMAKE') then
  8.     'RUN ASYNC CMD=GUIMAKE:GUIMake OUTPUT=NIL: WAITPORT=GUIMAKE'
  9.  
  10. if show('p', 'GUIMAKE') then
  11.  
  12.     do
  13.         ADDRESS GUIMAKE
  14.         command
  15.     end
  16. else 
  17.     do
  18.         ADDRESS (host)
  19.         'REQUEST BODY "Couldn''t launch GUIMake ?!"'
  20.     end
  21.  
  22. EXIT
  23.